home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed24.d64 / module 6 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  17KB  |  563 lines
  1. 10 REM VOCABULARY EXERCISE DESIGNED BY         BILL CUMBERLAND FEB 1989
  2. 15 POKE53280,0:POKE53281,0:POKE646,7:POKE53272,23
  3. 20 V$="6":REM MODULE IDENTIFICATION CODE
  4. 25 REM THIS MODULE WAS PREPARED BY ....
  5. 30 REM BILL CUMBERLAND 1991 11 02
  6. 40 GOTO100
  7. 50 FORT=1TO4000:NEXT:PRINT"[154]      [208]RESS  [211][208][193][195][197] [194][193][210] [146] TO CONTINUE.[155]"
  8. 55 GETR$:IFR$<>CHR$(32)THEN55
  9. 60 RETURN
  10. 100 PRINT"[147]                                        [146]";
  11. 101 PRINT"                                        [146]";
  12. 102 PRINT"                [214][207][195][193][194] "V$"              [146]";
  13. 104 PRINT"                                           [146]";
  14. 105 PRINT"                                        [146]";
  15. 106 PRINT"                                        [146]";
  16. 107 PRINT"                                        [146]";:GOSUB9300:GOSUB9053
  17. 108 GOSUB9051:GOSUB9300:GOSUB660
  18. 110 PRINT"[147]                                        [146]";
  19. 111 PRINT"    [212]HIS MODULE WAS PREPARED BY....     [146]";
  20. 112 PRINT"            [194]ILL [195]UMBERLAND             [146]";
  21. 113 PRINT"               91:11:02                 [146]";
  22. 114 PRINT"                                        [146]":GOSUB9052
  23. 115 PRINT"[147][212]HE FOLLOWING WORDS ARE EXAMINED:"
  24. 120 PRINT"VALOUR,CAMARADERIE,MOTTLED,PATRICIAN"
  25. 125 PRINT"CONCLAVE,RAFFISH,PUGNACIOUS,COFFERS"
  26. 130 PRINT"OMNIVEROUS,PARASITIC,STIRLING,SAVANT"
  27. 135 PRINT"SUPERANNUATED,EUPHORIA,ENNUI,PARASITIC"
  28. 140 PRINT"PATRIMONY,CONNIVING,ENTOURAGE,          PREROGATIVE"
  29. 145 PRINT"          [201]NSTRUCTIONS?  Y/N":GOSUB9051:GOSUB9300
  30. 150 GETR$:IFR$<>"Y"ANDR$<>"N"THEN150
  31. 155 IFR$="N"THEN2000
  32. 200 PRINT"[147]             [201]NSTRUCTIONS
  33. 210 [153]"  (null)HIS IS ONE OF A SERIES OF MODULES      DESIGNED TO HELP YOU ";
  34. 220 [153]"BUILD A GOOD       WORKING VOCABULARY."
  35. 230 [141]50
  36. 240 [153]"LOAD  (null)EAD THE UNDERLINED WORD AND CHOOSE     ONE OF THE FIVE WORDS ";
  37. 250 [153]"WHICH HAS A       MEANING SIMILAR TO THE UNDERLINED       WORD.
  38. 260 PRINT"  [197]XAMPLE:    MIDDLE
  39. 270 [153]"              USRUSRUSRUSRUSRUSR
  40. 280 PRINT"           1. WARFARE
  41. 290 [153]"           2. MARCHED
  42. 300 PRINT"           3. LAWFUL
  43. 310 [153]"           4. CENTRE
  44. 320 PRINT"           5. RANCH
  45. 330 [153]"  (null)INCE 'CENTRE' IS THE CORRECT CHOICE,   YOU WOULD ENTER '4'";
  46. 340 [153]" AS YOUR RESPONSE    AND THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  47. 350 GOSUB50
  48. 370 PRINT"[147]  [208]RESS 1 TO REVIEW INSTRUCTIONS.
  49. 380 [153]"  (null)RESS 2 TO START THE EXERCISE.
  50. 390 GETR$:IFR$<>"1"ANDR$<>"2"THEN390
  51. 400 IFR$="1"THEN200
  52. 410 PRINT"[147]  [200]ERE ARE TWENTY QUESTIONS FOR YOU.
  53. 420 [141]9052:[153]"LOAD"
  54. 430 W[178]1
  55. 440 [137]2000
  56. 499 :
  57. 500 [143] TERMINATION OF MODULE
  58. 505 [139] C[177]18 [167] 535
  59. 510 [139] C[177]16 [167] 565
  60. 515 [139] C[177]14 [167] 595
  61. 520 [153]"LOAD  (null)OU SEEM TO HAVE PROBLEMS!
  62. 525 PRINT"  [211]EE YOUR TEACHER!"
  63. 530 GOSUB9059:GOTO540
  64. 535 PRINT"[147]   [197]XCELLENT WORK!":GOSUB9052
  65. 540 PRINT"   [196]O YOU WISH TO REVIEW THE DEFINITIONS   OF THESE WORDS?  Y/N
  66. 545 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]545
  67. 550 [139]R$[178]"Y"[167]5000
  68. 555 [139]R$[178]"N"[167][153]"LOAD  (null)RY MODULE (null)(null)LENATNPEEK 7 WHEN YOU HAVE        THE TIME.
  69. 560 GOSUB9052:GOTO9500
  70. 565 W=20-C
  71. 570 PRINT"[147]   [199]OOD WORK!":GOSUB9052:PRINT"   [217]OU MISSED "W" WORDS"
  72. 575 GOSUB9055
  73. 580 PRINT"   [204]ET'S REVIEW THE DEFINITIONS OF         THESE WORDS?
  74. 585 [141]9053:[137]5000
  75. 590 [141]9055
  76. 595 [153]"LOAD  (null)OU ARE NOT DOING VERY WELL!":[141]9054
  77. 600 [153]"  RIGHT$ WANT YOU TO REVIEW THE MEANING OF     THESE WORDS NOW."
  78. 605 [141]9053:[153]"  (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  79. 610 GETR$:IFR$<>CHR$(32)THEN610
  80. 615 GOTO5000
  81. 654 :
  82. 655 GOSUB9054
  83. 660 PRINT"      [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  84. 665 [161]R$:[139]R$[179][177][199](32)[167]665
  85. 670 [142]
  86. 1999 :
  87. 2000 [153]"LOAD":[151]53280,9:[151]53281,15:[151]646,0
  88. 2010 [153]" 1       VALOUR
  89. 2015 PRINT"         [183][183][183][183][183][183]
  90. 2020 [153]"      1. OBSTINACY
  91. 2025 PRINT"      2. SOLIDITY
  92. 2030 [153]"      3. COURAGE
  93. 2035 PRINT"      4. PRIDE
  94. 2040 [153]"      5. VALUABLE
  95. 2045 GOSUB9000
  96. 2050 IFR$="3"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2100
  97. 2060 GOSUB9200
  98. 2065 PRINT"  [206]O, THE CORRECT CHOICE IS...
  99. 2070 [153]"         COURAGE WAIT.":W[178]W[170]1
  100. 2075 [141]9052
  101. 2080 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  102. 2099 :
  103. 2100 [153]"LOAD":[151]53280,8:[151]53281,15:[151]646,0
  104. 2110 [153]" 2       CAMARADERIE
  105. 2115 PRINT"         [183][183][183][183][183][183][183][183][183][183][183]
  106. 2120 [153]"      1. LOYALTY AND FRIENDSHIP
  107. 2125 PRINT"      2. OFFER TO SURRENDER
  108. 2130 [153]"      3. EXCLUSION OF STRANGERS
  109. 2135 PRINT"      4. GOOD-HUMOURED HOSPITALITY
  110. 2140 [153]"      5. FAMILIARITY
  111. 2145 GOSUB9000
  112. 2150 IFR$="1"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2200
  113. 2155 GOSUB9200
  114. 2160 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  115. 2165 [153]"   LOYALTY AND FRIENDSHIP ":W[178]W[170]1
  116. 2170 [141]9052
  117. 2175 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  118. 2199 :
  119. 2200 [153]"LOAD":[151]53280,5:[151]53281,15:[151]646,0
  120. 2210 [153]" 3       MOTTLED
  121. 2215 PRINT"         [183][183][183][183][183][183][183]
  122. 2220 [153]"      1. DIRTY
  123. 2225 PRINT"      2. MARKED WITH PLOTCHES
  124. 2230 [153]"      3. HOE
  125. 2235 PRINT"      4. POCKMARKED
  126. 2240 [153]"      5. OF DIFFERENT SIZES AND SHAPES
  127. 2245 GOSUB9000
  128. 2250 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2300
  129. 2255 GOSUB9200
  130. 2260 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  131. 2265 [153]"   MARKED WITH SPLOTCHES WAIT":W[178]W[170]1
  132. 2270 [141]9052
  133. 2275 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  134. 2299 :
  135. 2300 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  136. 2310 [153]" 4       PATRICIAN
  137. 2315 PRINT"         [183][183][183][183][183][183][183][183][183]
  138. 2320 [153]"      1. FATHERLY
  139. 2325 PRINT"      2. SELF-SATISFIED
  140. 2330 [153]"      3. WISE
  141. 2335 PRINT"      4. MASSAGE EXPERT
  142. 2340 [153]"      5. ARISTOCRATIC
  143. 2345 GOSUB9000
  144. 2350 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2400
  145. 2355 GOSUB9200
  146. 2360 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  147. 2365 [153]"         ARISTOCRATIC WAIT":W[178]W[170]1
  148. 2370 [141]9052
  149. 2375 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  150. 2399 :
  151. 2400 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  152. 2410 [153]" 5       CONCLAVE
  153. 2415 PRINT"         [183][183][183][183][183][183][183][183]
  154. 2420 [153]"      1. FORTRESS
  155. 2425 PRINT"      2. CURVING INWARD
  156. 2430 [153]"      3. CONCRETE ARCH
  157. 2435 PRINT"      4. PRIVATE OR SECRET MEETING
  158. 2440 [153]"      5. MEDICINAL COMPOUND
  159. 2445 GOSUB9000
  160. 2450 IFR$="4"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO2500
  161. 2455 GOSUB9200
  162. 2460 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  163. 2465 [153]"      (null)RIVATE OR SECRET MEETING WAIT":W[178]W[170]1
  164. 2470 [141]9052
  165. 2475 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  166. 2499 :
  167. 2500 [153]"LOAD":[151]53280,7:[151]53281,15:[151]646,0
  168. 2510 [153]" 6       RAFFISH
  169. 2515 PRINT"         [183][183][183][183][183][183][183]
  170. 2520 [153]"      1. A COARSE FISH
  171. 2525 PRINT"      2. FLASHY OR VULGAR
  172. 2530 [153]"      3. APPEALING
  173. 2535 PRINT"      4. RISKY
  174. 2540 [153]"      5. COMICAL
  175. 2545 GOSUB9000
  176. 2550 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2600
  177. 2555 GOSUB9200
  178. 2560 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  179. 2565 [153]"         FLASHY OR VULGAR ":W[178]W[170]1
  180. 2570 [141]9052
  181. 2575 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  182. 2599 :
  183. 2600 [153]"LOAD":[151]53280,2:[151]53281,15:[151]646,0
  184. 2610 [153]" 7       PUGNACIOUS
  185. 2615 PRINT"         [183][183][183][183][183][183][183][183][183][183]
  186. 2620 [153]"      1. QUARRELSOME
  187. 2625 PRINT"      2. RESEMBLING A BULLDOG
  188. 2630 [153]"      3. HOMELY
  189. 2635 PRINT"      4. CONCILIATORY
  190. 2640 [153]"      5. GIVEN TO MAKING JOKES
  191. 2645 GOSUB9000
  192. 2650 IFR$="1"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO2700
  193. 2655 GOSUB9200
  194. 2660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  195. 2665 [153]"           QUARRELSOME ":W[178]W[170]1
  196. 2670 [141]9052
  197. 2675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  198. 2699 :
  199. 2700 [153]"LOAD":[151]53280,11:[151]53281,15:[151]646,0
  200. 2710 [153]" 8       COFFERS
  201. 2715 PRINT"         [183][183][183][183][183][183][183]
  202. 2720 [153]"        1. BURIAL CONTAINERS
  203. 2725 PRINT"        2. SMALL WATER DAMS
  204. 2730 [153]"        3. COINS
  205. 2735 PRINT"        4. RECORDS
  206. 2740 [153]"        5. STRONGBOXES
  207. 2745 GOSUB9000
  208. 2750 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2800
  209. 2755 GOSUB9200
  210. 2760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  211. 2765 [153]"           STRONGBOXES ":W[178]W[170]1
  212. 2770 [141]9052
  213. 2775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  214. 2799 :
  215. 2800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
  216. 2810 [153]" 9       OMNIVEROUS
  217. 2815 PRINT"         [183][183][183][183][183][183][183][183][183][183]
  218. 2820 [153]"      1. WIDESPREAD
  219. 2825 PRINT"      2. EATING NO MEAT
  220. 2830 [153]"      3. DEVOURING INDISCRIMINANTLY
  221. 2835 PRINT"      4. MEAT EATING
  222. 2840 [153]"      5. MENACING
  223. 2845 GOSUB9000
  224. 2850 IFR$="3"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO2900
  225. 2855 GOSUB9200
  226. 2860 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  227. 2865 [153]"       DEVOURING INDISCRIMINANTLY ":W[178]W[170]1
  228. 2870 [141]9052
  229. 2875 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  230. 2899 :
  231. 2900 [153]"LOAD":[151]53280,5:[151]53281,15:[151]646,0
  232. 2910 [153]" 10      SUPERANNUATED
  233. 2915 PRINT"         [183][183][183][183][183][183][183][183][183][183][183][183][183]
  234. 2920 [153]"      1. OVEREXTENDED
  235. 2925 PRINT"      2. OBSOLETE
  236. 2930 [153]"      3. SPIRITED
  237. 2935 PRINT"      4. ANNOYING
  238. 2940 [153]"      5. INSURANCE PROCESS
  239. 2945 GOSUB9000
  240. 2950 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3000
  241. 2955 GOSUB9200
  242. 2960 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  243. 2965 [153]"         OBSOLETE ":W[178]W[170]1
  244. 2970 [141]9052
  245. 2975 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  246. 2999 :
  247. 3000 [153]"LOAD":[151]53280,12:[151]53281,15:[151]646,0
  248. 3010 [153]" 11      ITINERANT
  249. 3015 PRINT"         [183][183][183][183][183][183][183][183][183]
  250. 3020 [153]"     1. IRREGULAR
  251. 3025 PRINT"     2. POOR
  252. 3030 [153]"     3. TRANSITIONAL
  253. 3035 PRINT"     4. A BANK INSPECTOR
  254. 3040 [153]"     5. TRAVELLING FROM PLACE TO PLACE
  255. 3045 GOSUB9000
  256. 3050 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3100
  257. 3055 GOSUB9200
  258. 3060 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  259. 3065 [153]"    TRAVELLING FROM PLACE TO PLACE WAIT":W[178]W[170]1
  260. 3070 [141]9052
  261. 3075 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053 :[141]9060
  262. 3099 :
  263. 3100 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
  264. 3110 [153]" 12      PATRIMONY
  265. 3115 PRINT"         [183][183][183][183][183][183][183][183][183]
  266. 3120 [153]"      1. LOVE OF COUNTRY
  267. 3125 PRINT"      2. CONDESCENDING MANNER
  268. 3130 [153]"      3. INHERITANCE FROM AN ANCESTOR
  269. 3135 PRINT"      4. DISTRIBUTION OF JOBS
  270. 3140 [153]"      5. DIVORCE PROCEEDINGS
  271. 3145 GOSUB9000
  272. 3150 IFR$="3"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3200
  273. 3155 GOSUB9200
  274. 3160 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  275. 3165 [153]"     INHERITANCE FROM AN ANCESTOR WAIT":W[178]W[170]1
  276. 3170 [141]9052
  277. 3175 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  278. 3199 :
  279. 3200 [153]"LOAD":[151]53280,4:[151]53281,15:[151]646,0
  280. 3210 [153]" 13      PARASITIC
  281. 3215 PRINT"         [183][183][183][183][183][183][183][183][183]
  282. 3220 [153]"      1. SMOTHERING PRESENCE
  283. 3225 PRINT"      2. LIVING OFF ANOTHER
  284. 3230 [153]"      3. PUSHY
  285. 3235 PRINT"      4. GIVEN TO PARACHUTE JUMPING
  286. 3240 [153]"      5. WORRYING ABOUT HEALTH
  287. 3245 GOSUB9000
  288. 3250 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3300
  289. 3255 GOSUB9200
  290. 3260 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  291. 3265 [153]"          LIVING OFF ANOTHER WAIT":W[178]W[170]1
  292. 3270 [141]9052
  293. 3275 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  294. 3299 :
  295. 3300 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  296. 3310 [153]" 14      SAVANT
  297. 3315 PRINT"         [183][183][183][183][183][183]
  298. 3320 [153]"      1. INSIDER
  299. 3325 PRINT"      2. SCHOLAR
  300. 3330 [153]"      3. EXPERT HUNTER
  301. 3335 PRINT"      4. WRITER
  302. 3340 [153]"      5. NATIVE ELDER
  303. 3345 GOSUB9000
  304. 3350 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3400
  305. 3355 GOSUB9200
  306. 3360 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  307. 3365 [153]"            SCHOLAR  WAIT":W[178]W[170]1
  308. 3370 [141]9052
  309. 3375 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  310. 3399 :
  311. 3400 [153]"LOAD":[151]53280,13:[151]53281,15:[151]646,0
  312. 3410 [153]" 15      ENTOURAGE
  313. 3415 PRINT"         [183][183][183][183][183][183][183][183][183]
  314. 3420 [153]" A GROUP OF 1. DIRECTORS
  315. 3425 PRINT"            2. OBSERVERS
  316. 3430 [153]"            3. ADVERSARIES
  317. 3435 PRINT"            4. ATTENDANTS
  318. 3440 [153]"            5. HEROES
  319. 3445 GOSUB9000
  320. 3450 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3500
  321. 3455 GOSUB9200
  322. 3460 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  323. 3465 [153]"       A GROUP OF ATTENDANTS ":W[178]W[170]1
  324. 3470 [141]9052
  325. 3475 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  326. 3480 [153]"  ASCROM (null)ATIN 'PROPAGARE'":[141]9060
  327. 3500 [153]"LOAD":[151]53280,7:[151]53281,15:[151]646,0
  328. 3510 [153]" 16      PREROGATIVE
  329. 3515 PRINT"         [183][183][183][183][183][183][183][183][183][183][183]
  330. 3520 [153]"      1. PRELIMINARY QUESTION
  331. 3525 PRINT"      2. DEMAND
  332. 3530 [153]"      3. PRESTIGE
  333. 3535 PRINT"      4. THREATEN
  334. 3540 [153]"      5. SPECIAL PRIVILEGE
  335. 3545 GOSUB9000
  336. 3550 IFR$="5"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO3600
  337. 3555 GOSUB9200
  338. 3560 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  339. 3565 [153]"         SPECIAL PRIVILEGED  WAIT"
  340. 3570 [141]9052:W[178]W[170]1
  341. 3575 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  342. 3585 [141]9060
  343. 3600 [153]"LOAD":[151]53280,13:[151]53281,15:[151]646,0
  344. 3610 [153]" 17      CONNIVING
  345. 3615 PRINT"         [183][183][183][183][183][183][183][183][183]
  346. 3620 [153]"      1. CONSPIRING
  347. 3625 PRINT"      2. INCITING
  348. 3630 [153]"      3. PLANNING
  349. 3635 PRINT"      4. COMBINING
  350. 3640 [153]"      5. INFORMING
  351. 3645 GOSUB9000
  352. 3650 IFR$="1"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3700
  353. 3655 GOSUB9200
  354. 3660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  355. 3665 [153]"      CONSPIRING WAIT":W[178]W[170]1
  356. 3670 [141]9052
  357. 3675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  358. 3700 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  359. 3710 [153]" 18      ENNUI
  360. 3715 PRINT"         [183][183][183][183][183]
  361. 3720 [153]"      1. A WINGLESS BIRD
  362. 3725 PRINT"      2. ANGER
  363. 3730 [153]"      3. PRETENSE
  364. 3735 PRINT"      4. NONCHALANCE
  365. 3740 [153]"      5. BOREDOM
  366. 3745 GOSUB9000
  367. 3750 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3800
  368. 3755 GOSUB9200
  369. 3760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  370. 3765 [153]"         BOREDOM       WAIT":W[178]W[170]1
  371. 3770 [141]9052
  372. 3775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  373. 3800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
  374. 3810 [153]" 19      EUPHORIA
  375. 3815 PRINT"         [183][183][183][183][183][183][183]
  376. 3820 [153]"  SENSE OF 1. BEAUTY
  377. 3825 PRINT"           2. INTOXICATION
  378. 3830 [153]"           3. WELL-BEING
  379. 3835 PRINT"           4. DIZZINESS
  380. 3840 [153]"           5. INFATUATION
  381. 3845 GOSUB9000
  382. 3850 IFR$="3"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3900
  383. 3855 GOSUB9200
  384. 3860 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  385. 3865 [153]"    SENSE OF WELL-BEING ":W[178]W[170]1
  386. 3870 [141]9052
  387. 3875 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  388. 3900 [153]"LOAD":[151]53280,7:[151]53281,15:[151]646,0
  389. 3910 [153]" 20      STERLING
  390. 3915 PRINT"         [183][183][183][183][183][183][183][183]
  391. 3920 [153]"      1. WORKADAY
  392. 3925 PRINT"      2. EXCELLENT
  393. 3930 [153]"      3. ROYAL
  394. 3935 PRINT"      4. POLISHED
  395. 3940 [153]"      5. EXCITED
  396. 3955 GOSUB9000
  397. 3960 IFR$="2"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO4500
  398. 3965 GOSUB9200
  399. 3970 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  400. 3975 [153]"       EXCITED       WAIT":W[178]W[170]1:[141]9052:[141]9060
  401. 4500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:C[178]20[171]W
  402. 4505 [153]"  (null)OU HAVE COMPLETED THIS MODULE AND
  403. 4510 PRINT"  GOT";C;"WORDS CORRECT.":GOSUB9055
  404. 4515 GOTO500
  405. 4999 :
  406. 5000 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,0
  407. 5005 PRINT"              [196][197][198][201][206][201][212][201][207][206][211] [146]
  408. 5100 [153]" 1.  (null)ATN(null)(null)(null)(null)
  409. 5110 PRINT"     [199]REAT COURAGE IN FACING HARDSHIP
  410. 5120 [153]"     OR DANGER.
  411. 5130 PRINT" * [204]ATIN 'VALERE' (TO BE STRONG)
  412. 5140 [141]9070
  413. 5200 [153]"LOAD 2.  LENATN(null)ATN(null)ATNSTR$VAL(null)RIGHT$VAL
  414. 5210 PRINT"     [204]OYALTY AND FRIENDSHIP
  415. 5230 [153]" * ASCRENCH 'CAMARADE' (COMRADE, CHUM)
  416. 5240 GOSUB9070
  417. 5300 PRINT"[147] 3.  [205][207][212][212][204][197][196]
  418. 5310 [153]"     (null)ARKED WITH SPLOTCHES
  419. 5340 PRINT" * [197]NGLISH 'MOTLEY' (MULTICOLOURED) "
  420. 5350 GOSUB9070
  421. 5400 PRINT"[147] 4.  [208][193][212][210][201][195][201][193][206]
  422. 5410 [153]"     ATNRISTOCRATIC
  423. 5430 PRINT" * [204]ATIN 'PATRICIUS' (NOBLEMAN)
  424. 5440 [141]9070
  425. 5500 [153]"LOAD 5.  LEN(null)(null)LEN(null)ATN(null)VAL
  426. 5510 PRINT"     [208]RIVATE OR SECRET MEETING
  427. 5530 [153]" * (null)ATIN 'CON' (WITH) 'CLAVIS' (KEY)
  428. 5540 GOSUB9070
  429. 5600 PRINT"[147] 6.  [210][193][198][198][201][211][200]
  430. 5610 [153]"     ASCLASHILY VULGAR, RAKISH,                DISREPUTABLE.
  431. 5630 PRINT" * [207]LD [198]RENCH 'RAFLE' (A SNATCHING UP)
  432. 5640 [141]9070
  433. 5700 [153]"LOAD 7.  (null)(null)CHR$(null)ATNLENRIGHT$(null)(null)(null)
  434. 5710 PRINT"     [209]UARRELSOME
  435. 5730 [153]"   * (null)ATIN 'PUGNARE' (TO FIGHT)
  436. 5740 GOSUB9070
  437. 5800 PRINT"[147] 8.  [195][207][198][198][197][210][211]
  438. 5810 [153]"     (null)TRONGBOXES FOR KEEPING VALUABLES
  439. 5830 PRINT"   * [199]REEK  'KOPHINOS' (BASKET)
  440. 5840 [141]9070
  441. 5900 [153]"LOAD 9.  (null)(null)(null)RIGHT$(null)(null)(null)(null)(null)(null)
  442. 5905 PRINT"     [196]EVOURING INDISCRIMINANTLY
  443. 5910 [153]
  444. 5915 [153]"   * (null)ATIN  'OMNIVORUS'
  445. 5920 GOSUB9070
  446. 5950 PRINT"[147] 10. [211][213][208][197][210][193][206][206][213][193][212][197][196]
  447. 5955 [153]"     (null)BSOLETE, OUTMODED
  448. 5960 PRINT
  449. 5965 PRINT"   * [204]ATIN 'SUPER'(OVER) 'ANNUS'(YEAR)
  450. 5970 [141]9070
  451. 6000 [153]"LOAD 11. RIGHT$(null)RIGHT$(null)VAL(null)ATN(null)(null)
  452. 6010 PRINT"     [212]RAVELLING FROM PLACE TO PLACE.
  453. 6040 [153]"   * (null)ATIN  'ITINERARI'
  454. 6050 GOSUB9070
  455. 6100 PRINT"[147] 12. [208][193][212][210][201][205][207][206][217]
  456. 6110 [153]"     RIGHT$NHERITANCE FROM AN ANCESTOR
  457. 6120 PRINT
  458. 6130 PRINT"   * [204]ATIN 'PATRIMONIUM' (PATERNAL           INHERITANCE)
  459. 6140 [141]9070
  460. 6200 [153]"LOAD 13. (null)ATN(null)ATN(null)RIGHT$(null)RIGHT$LEN
  461. 6210 PRINT"     [204]IVING AT THE EXPENSE OF ANOTHER
  462. 6220 [153]
  463. 6230 [153]"   * CHR$REEK  'PARASITOS'
  464. 6240 GOSUB9070
  465. 6300 PRINT"[147] 14. [211][193][214][193][206][212]
  466. 6310 [153]"     ATN SCHOLAR
  467. 6320 PRINT
  468. 6330 PRINT"   * [204]ATIN  'SAPERE' (TO BE WISE)
  469. 6340 [141]9070
  470. 6400 [153]"LOAD 15. VAL(null)(null)(null)(null)(null)ATNCHR$VAL
  471. 6410 PRINT"     [212]RAIN OF ATTENDANTS OR ASSOCIATES
  472. 6420 [153]
  473. 6430 [153]"   * ASCRENCH  'ENTOURER' (TO SURROUND)
  474. 6440 GOSUB9070
  475. 6500 PRINT"[147] 16. [208][210][197][210][207][199][193][212][201][214][197]
  476. 6510 [153]"     (null)PECIAL PRIVILAGE, EXCLUSIVE POWER
  477. 6520 PRINT
  478. 6530 PRINT"   * [204]ATIN 'PRAEROGARE' (TO ASK BEFORE)
  479. 6550 [141]9070
  480. 6600 [153]"LOAD 17. LEN(null)(null)(null)RIGHT$(null)RIGHT$(null)CHR$
  481. 6610 PRINT"     [195]ONSPIRING
  482. 6620 [153]
  483. 6630 [153]"   * (null)ATIN  'CON'CLOSE(WITH) 'NICTARE'           (TO WINK)
  484. 6640 GOSUB9070
  485. 6700 PRINT"[147] 18. [197][206][206][213][201]
  486. 6710 [153]"     PEEKOREDOM
  487. 6730 PRINT"   * [198]RENCH
  488. 6740 [141]9070
  489. 6800 [153]"LOAD 19. VAL(null)(null)LEFT$(null)(null)RIGHT$ATN
  490. 6810 PRINT"     [211]ENSE OF WELL-BEING OR ELATION
  491. 6830 [153]"   * CHR$REEK 'EU' (WELL)  'PHEREIN'            (TO BEAR)
  492. 6840 GOSUB9070
  493. 6900 PRINT"[147] 20. [211][212][197][210][204][201][206][199]
  494. 6910 [153]"     VALXCELLENT
  495. 6920 PRINT
  496. 6930 PRINT
  497. 6940 PRINT"   * [207]LD [197]NGLISH  'STEORRA' (RELATING        TO A [206]ORMAN PENNY)
  498. 6950 [141]9070
  499. 8500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7
  500. 8505 [139][197](W$)[179]3[167][137]8565
  501. 8515 [153]"              (null)ATN(null)(null)RIGHT$(null)CHR$ WAITSYS
  502. 8520 PRINT"   [201]F YOU MISSED MORE THAN TWO WORDS       YOU SHOULD REPEAT THIS";
  503. 8525 PRINT" MODULE."
  504. 8530 GOSUB 9052
  505. 8565 PRINT"[147]    [212]HE NEXT MODULE IN THIS SERIES IS                 [214][207][195][193][194] 7
  506. 8570 [141]9052
  507. 8575 [153]"    (null)EMEMBER....":[141]9051
  508. 8580 [153]"   RIGHT$F YOU KNOW THE WORDS - YOU CAN         COMMUNICATE!
  509. 8585 GOSUB9052
  510. 8590 PRINT"    [193] GOOD VOCABULARY IS WORTH [210][197][193][204]         GOLD!":GOSUB9059
  511. 8595 GOTO9500
  512. 9000 INPUT"    ";R$
  513. 9005 IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN 9000
  514. 9010 RETURN
  515. 9050 REM TIME SELECTORS
  516. 9051 FORT=1TO1000:NEXT:RETURN
  517. 9052 FORT=1TO2000:NEXT:RETURN
  518. 9053 FORT=1TO3000:NEXT:RETURN
  519. 9054 FORT=1TO4000:NEXT:RETURN
  520. 9055 FORT=1TO5000:NEXT:RETURN
  521. 9059 FORT=1TO9000:NEXT:RETURN
  522. 9060 GOSUB 9052
  523. 9061 PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  524. 9062 [161]R$:[139]R$[179][177][199](32)[167]9062
  525. 9063 [142]
  526. 9070 [141] 9052
  527. 9071 [153]"   (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  528. 9072 GETR$:IFR$<>CHR$(32)THEN9072
  529. 9073 RETURN
  530. 9099 :
  531. 9100 REM 'YES' SOUND
  532. 9105 S=54272:FORS=STOS+28:POKEE,0:NEXT
  533. 9110 POKE54296,15:POKE54277,42:POKE54278,250
  534. 9115 POKE54276,23:POKE54273,23:POKE54272,191
  535. 9120 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  536. 9125 POKE54296,0:RETURN
  537. 9199 :
  538. 9200 REM 'NO' SOUND
  539. 9205 S=54272:FORS=STOS+28:POKEE,0:NEXT
  540. 9210 POKE54296,15:POKE54277,18:POKE54278,242
  541. 9215 POKE54276,33:POKE54273,4:POKE54272,48
  542. 9220 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  543. 9225 FORE=STOS+28:POKEE,0:NEXT:RETURN
  544. 9299 :
  545. 9300 REM 'BLIP' SOUND
  546. 9305 S=54272:FORL=STOS+28:POKEL,0:NEXT:POKES+5,14:POKES+9,240:POKES+24,15
  547. 9310 HF=S+1:LF=S
  548. 9315 POKES+4,17:POKEHF,INT(RND(0)*50):POKELF,250:POKES+4,16:RETURN
  549. 9500 PRINT"[147][153] [217]OU HAVE A CHOICE:
  550. 9510 [153]" (null)RESS  (null) WAIT TO REPEAT MODULE 6
  551. 9520 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  552. 9530 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]9530
  553. 9540 [139]R$[178]"M"[167] [137]9560
  554. 9545 [139]R$[178]"(null)"[167] [137]9560
  555. 9550 [140]:[137]10
  556. 9560 [153]"LOAD(null)ETURNING TO THE DISK MENU
  557. 9570 LOAD"MENU",8
  558. 9580 RUN
  559. 9590 END
  560. 10000 REM  IN MEMORIUM * RAD JANJIC *              R.I.P.  87:11:26
  561. 10001 REM  FOR CORRECTION OR IMPROVEMENTCONTACT BILL CUMBERLAND (416)278-7687
  562. 57020 -C=W
  563.